home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / BUS / N-Z / Time_Stack / TimeStack / TimeStack / card_4856.txt < prev    next >
Encoding:
Text File  |  1988-02-03  |  3.1 KB  |  153 lines
  1. -- card: 4856 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3634
  5. -- name: Central Standard Time
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. On idle
  12.   put the short time into background field "CST"
  13.   put the seconds - 7200 into temp1
  14.   convert temp1 to short time
  15.   put temp1 into background field "PST"
  16.   put the seconds - 3600 into temp2
  17.   convert temp2 to short time
  18.   put temp2 into background field "MST"
  19.   put the seconds + 3600 into temp3
  20.   convert temp3 to short time
  21.   put temp3 into background field "EST"
  22.   put the seconds + 21600 into temp4
  23.   convert temp4 to short time
  24.   put temp4 into background field "UTC"
  25.   put the seconds into temp5
  26.   put card field 2 into temp6
  27.   convert temp6 to seconds
  28.   repeat for 5 times
  29.     if temp5 = temp6 then play "boing"
  30.     if temp5 = temp6 then flash 6
  31.   end repeat
  32.   If temp6 < temp5 then put "Time" into card field 2
  33.   pass idle
  34. end idle
  35.  
  36.  
  37.  
  38. -- part 1 (field)
  39. -- low flags: 00
  40. -- high flags: 0002
  41. -- rect: left=170 top=2 right=19 bottom=339
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Label
  50.  
  51.  
  52. -- part 2 (button)
  53. -- low flags: 00
  54. -- high flags: 8003
  55. -- rect: left=366 top=56 right=77 bottom=439
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Set Alarm
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   ask "Set alarm to go off at?"
  67.   put it into card field 2
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 3 (field)
  73. -- low flags: 01
  74. -- high flags: 0002
  75. -- rect: left=382 top=76 right=94 bottom=427
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Alarm Time
  84. ----- HyperTalk script -----
  85.  
  86.  
  87.  
  88.  
  89. -- part 4 (button)
  90. -- low flags: 00
  91. -- high flags: 0000
  92. -- rect: left=203 top=314 right=342 bottom=240
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 15420 / 15420
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: Prev
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   visual effect Scroll Right
  104.   go to previous card
  105. end mouseUp
  106.  
  107.  
  108. -- part 5 (button)
  109. -- low flags: 00
  110. -- high flags: 0000
  111. -- rect: left=240 top=314 right=342 bottom=276
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 16560 / 16560
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Next
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   visual effect Scroll Left
  123.   go to next card
  124. end mouseUp
  125.  
  126.  
  127. -- part contents for background part 3
  128. ----- text -----
  129. 16:16
  130.  
  131. -- part contents for background part 4
  132. ----- text -----
  133. 17:16
  134.  
  135. -- part contents for background part 5
  136. ----- text -----
  137. 18:16
  138.  
  139. -- part contents for background part 6
  140. ----- text -----
  141. 19:16
  142.  
  143. -- part contents for background part 7
  144. ----- text -----
  145. 0:16
  146.  
  147. -- part contents for card part 1
  148. ----- text -----
  149. Central Standard Time
  150.  
  151. -- part contents for card part 3
  152. ----- text -----
  153. Time